home *** CD-ROM | disk | FTP | other *** search
/ Ford Galaxy MK1 Restyling Interactive Presentation / Ford Galaxy.iso / multimedia.dxr / 00052.ls < prev    next >
Encoding:
Text File  |  2001-02-13  |  1.2 KB  |  57 lines
  1. global gStefano, gAllowRollover
  2.  
  3. on mouseEnter me
  4.   code = getCode(me.spriteNum)
  5.   if gStefano and gAllowRollover and not voidp(code) then
  6.     aggiustaScroll(the number of member code, the number of member code, "testi")
  7.     sprite(52).member = member(code)
  8.     member(code).scrollTop = 0
  9.     member(code).height = 170
  10.   end if
  11. end
  12.  
  13. on mouseLeave me
  14.   if gStefano and gAllowRollover then
  15.     sprite(52).member = member("Design00")
  16.   end if
  17. end
  18.  
  19. on mouseUp me
  20.   code = getCode(me.spriteNum)
  21.   if not voidp(code) then
  22.     gAllowRollover = 0
  23.     if gStefano then
  24.       sprite(52).member = member("Design00")
  25.       sound playFile 1, the moviePath & "Audio\" & code & ".aif"
  26.     end if
  27.     sprite(60).rect = rect(0, 0, 800, 600)
  28.     sprite(me.spriteNum + 40).locZ = 1000
  29.     sprite(me.spriteNum + 40).mZoomActivate("In")
  30.   end if
  31. end
  32.  
  33. on getCode spr
  34.   case spr of
  35.     21:
  36.       return "Design08"
  37.     24:
  38.       return "Design01"
  39.     25:
  40.       return "Design02"
  41.     26:
  42.       return "Design07"
  43.     28:
  44.       return "Design05"
  45.     31:
  46.       return "Design09"
  47.     33:
  48.       return "Design06"
  49.     34:
  50.       return "Design03"
  51.     35:
  52.       return "Design04"
  53.     otherwise:
  54.       return VOID
  55.   end case
  56. end
  57.